The data for the models was derived for the initial dataset dsL:
numID<- 9022 # highest id value (max = 9022)
### Define the data that will populate the model
ds<- dsL %>% # chose conditions to apply in creating dataset for modeling
dplyr::filter(id < numID) %.% # 1:9022
dplyr::filter(year %in% c(2000:2011)) %.% # 1997:2011
dplyr::filter(sample %in% c(1)) %.% # 0-Oversample; 1-Cross-Sectional
dplyr::filter(race %in% c(4)) %.% # 1-Black; 2-Hispanis; 3-Mixed; 4-White
dplyr::filter(byear %in% c(1980:1984)) %.% # birth year 1980:1984
dplyr::filter(ave(!is.na(attend), id, FUN = all)) %.% # only complete trajectories
dplyr::mutate( # compute new variables
age= year-byear, # definition of age to be used in the model
timec=year-2000, # metric of time is rounds of NSLY97 in years, centered at 2000
timec2= timec^2,
timec3= timec^3,
# timec= age-16, # metric of time is bilogical age in years, centered at 16
# timec2= timec^2,
# timec3= timec^3,#
cohort=byear-1980) %.% # age difference, years younger (unit - 1 cohort away)
dplyr::select( # assemble the dataset for modeling
id, sample, race, byear,cohort, # Time Invariant variables
year,
age, timec,timec2,timec3, attend) # Time Variant variables
Called from: BuildLine(modelName = modelName)
debug: p <- ggplot2::ggplot(ds, aes(x = timec, y = attend, group = id))
debug: p <- p + geom_line(aes(x = timec, y = yHat), colour = "red",
alpha = indLineAl, size = indLineSz, na.rm = T)
debug: p <- p + geom_line(aes(y = yFE), fill = NA, na.rm = T)
debug: p <- p + scale_x_continuous(breaks = seq(1, 11, 2))
debug: p <- p + scale_y_continuous(breaks = seq(0, 8, 1))
debug: p <- p + coord_cartesian(xlim = c(-0.5, 11.5), ylim = c(0.5,
8.5))
debug: p <- p + themeLine
debug: p <- p + labs(title = "How often have you attended a worship service?",
x = "Years Since 2000", y = "Church attendance")
debug: return(p)
Called from: BuildLine(modelName = modelName)
debug: p <- ggplot2::ggplot(ds, aes(x = timec, y = attend, group = id))
debug: p <- p + geom_line(aes(x = timec, y = yHat), colour = "red",
alpha = indLineAl, size = indLineSz, na.rm = T)
debug: p <- p + geom_line(aes(y = yFE), fill = NA, na.rm = T)
debug: p <- p + scale_x_continuous(breaks = seq(1, 11, 2))
debug: p <- p + scale_y_continuous(breaks = seq(0, 8, 1))
debug: p <- p + coord_cartesian(xlim = c(-0.5, 11.5), ylim = c(0.5,
8.5))
debug: p <- p + themeLine
debug: p <- p + labs(title = "How often have you attended a worship service?",
x = "Years Since 2000", y = "Church attendance")
debug: return(p)
Called from: BuildLine(modelName = modelName)
debug: p <- ggplot2::ggplot(ds, aes(x = timec, y = attend, group = id))
debug: p <- p + geom_line(aes(x = timec, y = yHat), colour = "red",
alpha = indLineAl, size = indLineSz, na.rm = T)
debug: p <- p + geom_line(aes(y = yFE), fill = NA, na.rm = T)
debug: p <- p + scale_x_continuous(breaks = seq(1, 11, 2))
debug: p <- p + scale_y_continuous(breaks = seq(0, 8, 1))
debug: p <- p + coord_cartesian(xlim = c(-0.5, 11.5), ylim = c(0.5,
8.5))
debug: p <- p + themeLine
debug: p <- p + labs(title = "How often have you attended a worship service?",
x = "Years Since 2000", y = "Church attendance")
debug: return(p)
Called from: BuildLine(modelName = modelName)
debug: p <- ggplot2::ggplot(ds, aes(x = timec, y = attend, group = id))
debug: p <- p + geom_line(aes(x = timec, y = yHat), colour = "red",
alpha = indLineAl, size = indLineSz, na.rm = T)
debug: p <- p + geom_line(aes(y = yFE), fill = NA, na.rm = T)
debug: p <- p + scale_x_continuous(breaks = seq(1, 11, 2))
debug: p <- p + scale_y_continuous(breaks = seq(0, 8, 1))
debug: p <- p + coord_cartesian(xlim = c(-0.5, 11.5), ylim = c(0.5,
8.5))
debug: p <- p + themeLine
debug: p <- p + labs(title = "How often have you attended a worship service?",
x = "Years Since 2000", y = "Church attendance")
debug: return(p)
Called from: BuildLine(modelName = modelName)
debug: p <- ggplot2::ggplot(ds, aes(x = timec, y = attend, group = id))
debug: p <- p + geom_line(aes(x = timec, y = yHat), colour = "red",
alpha = indLineAl, size = indLineSz, na.rm = T)
debug: p <- p + geom_line(aes(y = yFE), fill = NA, na.rm = T)
debug: p <- p + scale_x_continuous(breaks = seq(1, 11, 2))
debug: p <- p + scale_y_continuous(breaks = seq(0, 8, 1))
debug: p <- p + coord_cartesian(xlim = c(-0.5, 11.5), ylim = c(0.5,
8.5))
debug: p <- p + themeLine
debug: p <- p + labs(title = "How often have you attended a worship service?",
x = "Years Since 2000", y = "Church attendance")
debug: return(p)
Called from: BuildLine(modelName = modelName)
debug: p <- ggplot2::ggplot(ds, aes(x = timec, y = attend, group = id))
debug: p <- p + geom_line(aes(x = timec, y = yHat), colour = "red",
alpha = indLineAl, size = indLineSz, na.rm = T)
debug: p <- p + geom_line(aes(y = yFE), fill = NA, na.rm = T)
debug: p <- p + scale_x_continuous(breaks = seq(1, 11, 2))
debug: p <- p + scale_y_continuous(breaks = seq(0, 8, 1))
debug: p <- p + coord_cartesian(xlim = c(-0.5, 11.5), ylim = c(0.5,
8.5))
debug: p <- p + themeLine
debug: p <- p + labs(title = "How often have you attended a worship service?",
x = "Years Since 2000", y = "Church attendance")
debug: return(p)
Called from: BuildLine(modelName = modelName)
debug: p <- ggplot2::ggplot(ds, aes(x = timec, y = attend, group = id))
debug: p <- p + geom_line(aes(x = timec, y = yHat), colour = "red",
alpha = indLineAl, size = indLineSz, na.rm = T)
debug: p <- p + geom_line(aes(y = yFE), fill = NA, na.rm = T)
debug: p <- p + scale_x_continuous(breaks = seq(1, 11, 2))
debug: p <- p + scale_y_continuous(breaks = seq(0, 8, 1))
debug: p <- p + coord_cartesian(xlim = c(-0.5, 11.5), ylim = c(0.5,
8.5))
debug: p <- p + themeLine
debug: p <- p + labs(title = "How often have you attended a worship service?",
x = "Years Since 2000", y = "Church attendance")
debug: return(p)
Called from: BuildLine(modelName = modelName)
debug: p <- ggplot2::ggplot(ds, aes(x = timec, y = attend, group = id))
debug: p <- p + geom_line(aes(x = timec, y = yHat), colour = "red",
alpha = indLineAl, size = indLineSz, na.rm = T)
debug: p <- p + geom_line(aes(y = yFE), fill = NA, na.rm = T)
debug: p <- p + scale_x_continuous(breaks = seq(1, 11, 2))
debug: p <- p + scale_y_continuous(breaks = seq(0, 8, 1))
debug: p <- p + coord_cartesian(xlim = c(-0.5, 11.5), ylim = c(0.5,
8.5))
debug: p <- p + themeLine
debug: p <- p + labs(title = "How often have you attended a worship service?",
x = "Years Since 2000", y = "Church attendance")
debug: return(p)
Called from: BuildLine(modelName = modelName)
debug: p <- ggplot2::ggplot(ds, aes(x = timec, y = attend, group = id))
debug: p <- p + geom_line(aes(x = timec, y = yHat), colour = "red",
alpha = indLineAl, size = indLineSz, na.rm = T)
debug: p <- p + geom_line(aes(y = yFE), fill = NA, na.rm = T)
debug: p <- p + scale_x_continuous(breaks = seq(1, 11, 2))
debug: p <- p + scale_y_continuous(breaks = seq(0, 8, 1))
debug: p <- p + coord_cartesian(xlim = c(-0.5, 11.5), ylim = c(0.5,
8.5))
debug: p <- p + themeLine
debug: p <- p + labs(title = "How often have you attended a worship service?",
x = "Years Since 2000", y = "Church attendance")
debug: return(p)
Called from: BuildLine(modelName = modelName)
debug: p <- ggplot2::ggplot(ds, aes(x = timec, y = attend, group = id))
debug: p <- p + geom_line(aes(x = timec, y = yHat), colour = "red",
alpha = indLineAl, size = indLineSz, na.rm = T)
debug: p <- p + geom_line(aes(y = yFE), fill = NA, na.rm = T)
debug: p <- p + scale_x_continuous(breaks = seq(1, 11, 2))
debug: p <- p + scale_y_continuous(breaks = seq(0, 8, 1))
debug: p <- p + coord_cartesian(xlim = c(-0.5, 11.5), ylim = c(0.5,
8.5))
debug: p <- p + themeLine
debug: p <- p + labs(title = "How often have you attended a worship service?",
x = "Years Since 2000", y = "Church attendance")
debug: return(p)
Called from: BuildLine(modelName = modelName)
debug: p <- ggplot2::ggplot(ds, aes(x = timec, y = attend, group = id))
debug: p <- p + geom_line(aes(x = timec, y = yHat), colour = "red",
alpha = indLineAl, size = indLineSz, na.rm = T)
debug: p <- p + geom_line(aes(y = yFE), fill = NA, na.rm = T)
debug: p <- p + scale_x_continuous(breaks = seq(1, 11, 2))
debug: p <- p + scale_y_continuous(breaks = seq(0, 8, 1))
debug: p <- p + coord_cartesian(xlim = c(-0.5, 11.5), ylim = c(0.5,
8.5))
debug: p <- p + themeLine
debug: p <- p + labs(title = "How often have you attended a worship service?",
x = "Years Since 2000", y = "Church attendance")
debug: return(p)
Called from: BuildLine(modelName = modelName)
debug: p <- ggplot2::ggplot(ds, aes(x = timec, y = attend, group = id))
debug: p <- p + geom_line(aes(x = timec, y = yHat), colour = "red",
alpha = indLineAl, size = indLineSz, na.rm = T)
debug: p <- p + geom_line(aes(y = yFE), fill = NA, na.rm = T)
debug: p <- p + scale_x_continuous(breaks = seq(1, 11, 2))
debug: p <- p + scale_y_continuous(breaks = seq(0, 8, 1))
debug: p <- p + coord_cartesian(xlim = c(-0.5, 11.5), ylim = c(0.5,
8.5))
debug: p <- p + themeLine
debug: p <- p + labs(title = "How often have you attended a worship service?",
x = "Years Since 2000", y = "Church attendance")
debug: return(p)
Called from: BuildLine(modelName = modelName)
debug: p <- ggplot2::ggplot(ds, aes(x = timec, y = attend, group = id))
debug: p <- p + geom_line(aes(x = timec, y = yHat), colour = "red",
alpha = indLineAl, size = indLineSz, na.rm = T)
debug: p <- p + geom_line(aes(y = yFE), fill = NA, na.rm = T)
debug: p <- p + scale_x_continuous(breaks = seq(1, 11, 2))
debug: p <- p + scale_y_continuous(breaks = seq(0, 8, 1))
debug: p <- p + coord_cartesian(xlim = c(-0.5, 11.5), ylim = c(0.5,
8.5))
debug: p <- p + themeLine
debug: p <- p + labs(title = "How often have you attended a worship service?",
x = "Years Since 2000", y = "Church attendance")
debug: return(p)
Called from: BuildLine(modelName = modelName)
debug: p <- ggplot2::ggplot(ds, aes(x = timec, y = attend, group = id))
debug: p <- p + geom_line(aes(x = timec, y = yHat), colour = "red",
alpha = indLineAl, size = indLineSz, na.rm = T)
debug: p <- p + geom_line(aes(y = yFE), fill = NA, na.rm = T)
debug: p <- p + scale_x_continuous(breaks = seq(1, 11, 2))
debug: p <- p + scale_y_continuous(breaks = seq(0, 8, 1))
debug: p <- p + coord_cartesian(xlim = c(-0.5, 11.5), ylim = c(0.5,
8.5))
debug: p <- p + themeLine
debug: p <- p + labs(title = "How often have you attended a worship service?",
x = "Years Since 2000", y = "Church attendance")
debug: return(p)
Called from: BuildLine(modelName = modelName)
debug: p <- ggplot2::ggplot(ds, aes(x = timec, y = attend, group = id))
debug: p <- p + geom_line(aes(x = timec, y = yHat), colour = "red",
alpha = indLineAl, size = indLineSz, na.rm = T)
debug: p <- p + geom_line(aes(y = yFE), fill = NA, na.rm = T)
debug: p <- p + scale_x_continuous(breaks = seq(1, 11, 2))
debug: p <- p + scale_y_continuous(breaks = seq(0, 8, 1))
debug: p <- p + coord_cartesian(xlim = c(-0.5, 11.5), ylim = c(0.5,
8.5))
debug: p <- p + themeLine
debug: p <- p + labs(title = "How often have you attended a worship service?",
x = "Years Since 2000", y = "Church attendance")
debug: return(p)
Called from: BuildLine(modelName = modelName)
debug: p <- ggplot2::ggplot(ds, aes(x = timec, y = attend, group = id))
debug: p <- p + geom_line(aes(x = timec, y = yHat), colour = "red",
alpha = indLineAl, size = indLineSz, na.rm = T)
debug: p <- p + geom_line(aes(y = yFE), fill = NA, na.rm = T)
debug: p <- p + scale_x_continuous(breaks = seq(1, 11, 2))
debug: p <- p + scale_y_continuous(breaks = seq(0, 8, 1))
debug: p <- p + coord_cartesian(xlim = c(-0.5, 11.5), ylim = c(0.5,
8.5))
debug: p <- p + themeLine
debug: p <- p + labs(title = "How often have you attended a worship service?",
x = "Years Since 2000", y = "Church attendance")
debug: return(p)
Called from: BuildLine(modelName = modelName)
debug: p <- ggplot2::ggplot(ds, aes(x = timec, y = attend, group = id))
debug: p <- p + geom_line(aes(x = timec, y = yHat), colour = "red",
alpha = indLineAl, size = indLineSz, na.rm = T)
debug: p <- p + geom_line(aes(y = yFE), fill = NA, na.rm = T)
debug: p <- p + scale_x_continuous(breaks = seq(1, 11, 2))
debug: p <- p + scale_y_continuous(breaks = seq(0, 8, 1))
debug: p <- p + coord_cartesian(xlim = c(-0.5, 11.5), ylim = c(0.5,
8.5))
debug: p <- p + themeLine
debug: p <- p + labs(title = "How often have you attended a worship service?",
x = "Years Since 2000", y = "Church attendance")
debug: return(p)
Called from: BuildLine(modelName = modelName)
debug: p <- ggplot2::ggplot(ds, aes(x = timec, y = attend, group = id))
debug: p <- p + geom_line(aes(x = timec, y = yHat), colour = "red",
alpha = indLineAl, size = indLineSz, na.rm = T)
debug: p <- p + geom_line(aes(y = yFE), fill = NA, na.rm = T)
debug: p <- p + scale_x_continuous(breaks = seq(1, 11, 2))
debug: p <- p + scale_y_continuous(breaks = seq(0, 8, 1))
debug: p <- p + coord_cartesian(xlim = c(-0.5, 11.5), ylim = c(0.5,
8.5))
debug: p <- p + themeLine
debug: p <- p + labs(title = "How often have you attended a worship service?",
x = "Years Since 2000", y = "Church attendance")
debug: return(p)
Called from: BuildLine(modelName = modelName)
debug: p <- ggplot2::ggplot(ds, aes(x = timec, y = attend, group = id))
debug: p <- p + geom_line(aes(x = timec, y = yHat), colour = "red",
alpha = indLineAl, size = indLineSz, na.rm = T)
debug: p <- p + geom_line(aes(y = yFE), fill = NA, na.rm = T)
debug: p <- p + scale_x_continuous(breaks = seq(1, 11, 2))
debug: p <- p + scale_y_continuous(breaks = seq(0, 8, 1))
debug: p <- p + coord_cartesian(xlim = c(-0.5, 11.5), ylim = c(0.5,
8.5))
debug: p <- p + themeLine
debug: p <- p + labs(title = "How often have you attended a worship service?",
x = "Years Since 2000", y = "Church attendance")
debug: return(p)
Called from: BuildLine(modelName = modelName)
debug: p <- ggplot2::ggplot(ds, aes(x = timec, y = attend, group = id))
debug: p <- p + geom_line(aes(x = timec, y = yHat), colour = "red",
alpha = indLineAl, size = indLineSz, na.rm = T)
debug: p <- p + geom_line(aes(y = yFE), fill = NA, na.rm = T)
debug: p <- p + scale_x_continuous(breaks = seq(1, 11, 2))
debug: p <- p + scale_y_continuous(breaks = seq(0, 8, 1))
debug: p <- p + coord_cartesian(xlim = c(-0.5, 11.5), ylim = c(0.5,
8.5))
debug: p <- p + themeLine
debug: p <- p + labs(title = "How often have you attended a worship service?",
x = "Years Since 2000", y = "Church attendance")
debug: return(p)
Called from: BuildLine(modelName = modelName)
debug: p <- ggplot2::ggplot(ds, aes(x = timec, y = attend, group = id))
debug: p <- p + geom_line(aes(x = timec, y = yHat), colour = "red",
alpha = indLineAl, size = indLineSz, na.rm = T)
debug: p <- p + geom_line(aes(y = yFE), fill = NA, na.rm = T)
debug: p <- p + scale_x_continuous(breaks = seq(1, 11, 2))
debug: p <- p + scale_y_continuous(breaks = seq(0, 8, 1))
debug: p <- p + coord_cartesian(xlim = c(-0.5, 11.5), ylim = c(0.5,
8.5))
debug: p <- p + themeLine
debug: p <- p + labs(title = "How often have you attended a worship service?",
x = "Years Since 2000", y = "Church attendance")
debug: return(p)
Called from: BuildLine(modelName = modelName)
debug: p <- ggplot2::ggplot(ds, aes(x = timec, y = attend, group = id))
debug: p <- p + geom_line(aes(x = timec, y = yHat), colour = "red",
alpha = indLineAl, size = indLineSz, na.rm = T)
debug: p <- p + geom_line(aes(y = yFE), fill = NA, na.rm = T)
debug: p <- p + scale_x_continuous(breaks = seq(1, 11, 2))
debug: p <- p + scale_y_continuous(breaks = seq(0, 8, 1))
debug: p <- p + coord_cartesian(xlim = c(-0.5, 11.5), ylim = c(0.5,
8.5))
debug: p <- p + themeLine
debug: p <- p + labs(title = "How often have you attended a worship service?",
x = "Years Since 2000", y = "Church attendance")
debug: return(p)
Called from: BuildLine(modelName = modelName)
debug: p <- ggplot2::ggplot(ds, aes(x = timec, y = attend, group = id))
debug: p <- p + geom_line(aes(x = timec, y = yHat), colour = "red",
alpha = indLineAl, size = indLineSz, na.rm = T)
debug: p <- p + geom_line(aes(y = yFE), fill = NA, na.rm = T)
debug: p <- p + scale_x_continuous(breaks = seq(1, 11, 2))
debug: p <- p + scale_y_continuous(breaks = seq(0, 8, 1))
debug: p <- p + coord_cartesian(xlim = c(-0.5, 11.5), ylim = c(0.5,
8.5))
debug: p <- p + themeLine
debug: p <- p + labs(title = "How often have you attended a worship service?",
x = "Years Since 2000", y = "Church attendance")
debug: return(p)
Called from: BuildLine(modelName = modelName)
debug: p <- ggplot2::ggplot(ds, aes(x = timec, y = attend, group = id))
debug: p <- p + geom_line(aes(x = timec, y = yHat), colour = "red",
alpha = indLineAl, size = indLineSz, na.rm = T)
debug: p <- p + geom_line(aes(y = yFE), fill = NA, na.rm = T)
debug: p <- p + scale_x_continuous(breaks = seq(1, 11, 2))
debug: p <- p + scale_y_continuous(breaks = seq(0, 8, 1))
debug: p <- p + coord_cartesian(xlim = c(-0.5, 11.5), ylim = c(0.5,
8.5))
debug: p <- p + themeLine
debug: p <- p + labs(title = "How often have you attended a worship service?",
x = "Years Since 2000", y = "Church attendance")
debug: return(p)
Called from: BuildLine(modelName = modelName)
debug: p <- ggplot2::ggplot(ds, aes(x = timec, y = attend, group = id))
debug: p <- p + geom_line(aes(x = timec, y = yHat), colour = "red",
alpha = indLineAl, size = indLineSz, na.rm = T)
debug: p <- p + geom_line(aes(y = yFE), fill = NA, na.rm = T)
debug: p <- p + scale_x_continuous(breaks = seq(1, 11, 2))
debug: p <- p + scale_y_continuous(breaks = seq(0, 8, 1))
debug: p <- p + coord_cartesian(xlim = c(-0.5, 11.5), ylim = c(0.5,
8.5))
debug: p <- p + themeLine
debug: p <- p + labs(title = "How often have you attended a worship service?",
x = "Years Since 2000", y = "Church attendance")
debug: return(p)
Called from: BuildLine(modelName = modelName)
debug: p <- ggplot2::ggplot(ds, aes(x = timec, y = attend, group = id))
debug: p <- p + geom_line(aes(x = timec, y = yHat), colour = "red",
alpha = indLineAl, size = indLineSz, na.rm = T)
debug: p <- p + geom_line(aes(y = yFE), fill = NA, na.rm = T)
debug: p <- p + scale_x_continuous(breaks = seq(1, 11, 2))
debug: p <- p + scale_y_continuous(breaks = seq(0, 8, 1))
debug: p <- p + coord_cartesian(xlim = c(-0.5, 11.5), ylim = c(0.5,
8.5))
debug: p <- p + themeLine
debug: p <- p + labs(title = "How often have you attended a worship service?",
x = "Years Since 2000", y = "Church attendance")
debug: return(p)
Called from: BuildLine(modelName = modelName)
debug: p <- ggplot2::ggplot(ds, aes(x = timec, y = attend, group = id))
debug: p <- p + geom_line(aes(x = timec, y = yHat), colour = "red",
alpha = indLineAl, size = indLineSz, na.rm = T)
debug: p <- p + geom_line(aes(y = yFE), fill = NA, na.rm = T)
debug: p <- p + scale_x_continuous(breaks = seq(1, 11, 2))
debug: p <- p + scale_y_continuous(breaks = seq(0, 8, 1))
debug: p <- p + coord_cartesian(xlim = c(-0.5, 11.5), ylim = c(0.5,
8.5))
debug: p <- p + themeLine
debug: p <- p + labs(title = "How often have you attended a worship service?",
x = "Years Since 2000", y = "Church attendance")
debug: return(p)
Called from: BuildLine(modelName = modelName)
debug: p <- ggplot2::ggplot(ds, aes(x = timec, y = attend, group = id))
debug: p <- p + geom_line(aes(x = timec, y = yHat), colour = "red",
alpha = indLineAl, size = indLineSz, na.rm = T)
debug: p <- p + geom_line(aes(y = yFE), fill = NA, na.rm = T)
debug: p <- p + scale_x_continuous(breaks = seq(1, 11, 2))
debug: p <- p + scale_y_continuous(breaks = seq(0, 8, 1))
debug: p <- p + coord_cartesian(xlim = c(-0.5, 11.5), ylim = c(0.5,
8.5))
debug: p <- p + themeLine
debug: p <- p + labs(title = "How often have you attended a worship service?",
x = "Years Since 2000", y = "Church attendance")
debug: return(p)
Called from: BuildLine(modelName = modelName)
debug: p <- ggplot2::ggplot(ds, aes(x = timec, y = attend, group = id))
debug: p <- p + geom_line(aes(x = timec, y = yHat), colour = "red",
alpha = indLineAl, size = indLineSz, na.rm = T)
debug: p <- p + geom_line(aes(y = yFE), fill = NA, na.rm = T)
debug: p <- p + scale_x_continuous(breaks = seq(1, 11, 2))
debug: p <- p + scale_y_continuous(breaks = seq(0, 8, 1))
debug: p <- p + coord_cartesian(xlim = c(-0.5, 11.5), ylim = c(0.5,
8.5))
debug: p <- p + themeLine
debug: p <- p + labs(title = "How often have you attended a worship service?",
x = "Years Since 2000", y = "Church attendance")
debug: return(p)
Called from: BuildLine(modelName = modelName)
debug: p <- ggplot2::ggplot(ds, aes(x = timec, y = attend, group = id))
debug: p <- p + geom_line(aes(x = timec, y = yHat), colour = "red",
alpha = indLineAl, size = indLineSz, na.rm = T)
debug: p <- p + geom_line(aes(y = yFE), fill = NA, na.rm = T)
debug: p <- p + scale_x_continuous(breaks = seq(1, 11, 2))
debug: p <- p + scale_y_continuous(breaks = seq(0, 8, 1))
debug: p <- p + coord_cartesian(xlim = c(-0.5, 11.5), ylim = c(0.5,
8.5))
debug: p <- p + themeLine
debug: p <- p + labs(title = "How often have you attended a worship service?",
x = "Years Since 2000", y = "Church attendance")
debug: return(p)
Called from: BuildLine(modelName = modelName)
debug: p <- ggplot2::ggplot(ds, aes(x = timec, y = attend, group = id))
debug: p <- p + geom_line(aes(x = timec, y = yHat), colour = "red",
alpha = indLineAl, size = indLineSz, na.rm = T)
debug: p <- p + geom_line(aes(y = yFE), fill = NA, na.rm = T)
debug: p <- p + scale_x_continuous(breaks = seq(1, 11, 2))
debug: p <- p + scale_y_continuous(breaks = seq(0, 8, 1))
debug: p <- p + coord_cartesian(xlim = c(-0.5, 11.5), ylim = c(0.5,
8.5))
debug: p <- p + themeLine
debug: p <- p + labs(title = "How often have you attended a worship service?",
x = "Years Since 2000", y = "Church attendance")
debug: return(p)
Called from: BuildLine(modelName = modelName)
debug: p <- ggplot2::ggplot(ds, aes(x = timec, y = attend, group = id))
debug: p <- p + geom_line(aes(x = timec, y = yHat), colour = "red",
alpha = indLineAl, size = indLineSz, na.rm = T)
debug: p <- p + geom_line(aes(y = yFE), fill = NA, na.rm = T)
debug: p <- p + scale_x_continuous(breaks = seq(1, 11, 2))
debug: p <- p + scale_y_continuous(breaks = seq(0, 8, 1))
debug: p <- p + coord_cartesian(xlim = c(-0.5, 11.5), ylim = c(0.5,
8.5))
debug: p <- p + themeLine
debug: p <- p + labs(title = "How often have you attended a worship service?",
x = "Years Since 2000", y = "Church attendance")
debug: return(p)
Called from: BuildLine(modelName = modelName)
debug: p <- ggplot2::ggplot(ds, aes(x = timec, y = attend, group = id))
debug: p <- p + geom_line(aes(x = timec, y = yHat), colour = "red",
alpha = indLineAl, size = indLineSz, na.rm = T)
debug: p <- p + geom_line(aes(y = yFE), fill = NA, na.rm = T)
debug: p <- p + scale_x_continuous(breaks = seq(1, 11, 2))
debug: p <- p + scale_y_continuous(breaks = seq(0, 8, 1))
debug: p <- p + coord_cartesian(xlim = c(-0.5, 11.5), ylim = c(0.5,
8.5))
debug: p <- p + themeLine
debug: p <- p + labs(title = "How often have you attended a worship service?",
x = "Years Since 2000", y = "Church attendance")
debug: return(p)
Called from: BuildLine(modelName = modelName)
debug: p <- ggplot2::ggplot(ds, aes(x = timec, y = attend, group = id))
debug: p <- p + geom_line(aes(x = timec, y = yHat), colour = "red",
alpha = indLineAl, size = indLineSz, na.rm = T)
debug: p <- p + geom_line(aes(y = yFE), fill = NA, na.rm = T)
debug: p <- p + scale_x_continuous(breaks = seq(1, 11, 2))
debug: p <- p + scale_y_continuous(breaks = seq(0, 8, 1))
debug: p <- p + coord_cartesian(xlim = c(-0.5, 11.5), ylim = c(0.5,
8.5))
debug: p <- p + themeLine
debug: p <- p + labs(title = "How often have you attended a worship service?",
x = "Years Since 2000", y = "Church attendance")
debug: return(p)
Called from: BuildLine(modelName = modelName)
debug: p <- ggplot2::ggplot(ds, aes(x = timec, y = attend, group = id))
debug: p <- p + geom_line(aes(x = timec, y = yHat), colour = "red",
alpha = indLineAl, size = indLineSz, na.rm = T)
debug: p <- p + geom_line(aes(y = yFE), fill = NA, na.rm = T)
debug: p <- p + scale_x_continuous(breaks = seq(1, 11, 2))
debug: p <- p + scale_y_continuous(breaks = seq(0, 8, 1))
debug: p <- p + coord_cartesian(xlim = c(-0.5, 11.5), ylim = c(0.5,
8.5))
debug: p <- p + themeLine
debug: p <- p + labs(title = "How often have you attended a worship service?",
x = "Years Since 2000", y = "Church attendance")
debug: return(p)
Called from: BuildLine(modelName = modelName)
debug: p <- ggplot2::ggplot(ds, aes(x = timec, y = attend, group = id))
debug: p <- p + geom_line(aes(x = timec, y = yHat), colour = "red",
alpha = indLineAl, size = indLineSz, na.rm = T)
debug: p <- p + geom_line(aes(y = yFE), fill = NA, na.rm = T)
debug: p <- p + scale_x_continuous(breaks = seq(1, 11, 2))
debug: p <- p + scale_y_continuous(breaks = seq(0, 8, 1))
debug: p <- p + coord_cartesian(xlim = c(-0.5, 11.5), ylim = c(0.5,
8.5))
debug: p <- p + themeLine
debug: p <- p + labs(title = "How often have you attended a worship service?",
x = "Years Since 2000", y = "Church attendance")
debug: return(p)
Called from: BuildLine(modelName = modelName)
debug: p <- ggplot2::ggplot(ds, aes(x = timec, y = attend, group = id))
debug: p <- p + geom_line(aes(x = timec, y = yHat), colour = "red",
alpha = indLineAl, size = indLineSz, na.rm = T)
debug: p <- p + geom_line(aes(y = yFE), fill = NA, na.rm = T)
debug: p <- p + scale_x_continuous(breaks = seq(1, 11, 2))
debug: p <- p + scale_y_continuous(breaks = seq(0, 8, 1))
debug: p <- p + coord_cartesian(xlim = c(-0.5, 11.5), ylim = c(0.5,
8.5))
debug: p <- p + themeLine
debug: p <- p + labs(title = "How often have you attended a worship service?",
x = "Years Since 2000", y = "Church attendance")
debug: return(p)
Called from: BuildLine(modelName = modelName)
debug: p <- ggplot2::ggplot(ds, aes(x = timec, y = attend, group = id))
debug: p <- p + geom_line(aes(x = timec, y = yHat), colour = "red",
alpha = indLineAl, size = indLineSz, na.rm = T)
debug: p <- p + geom_line(aes(y = yFE), fill = NA, na.rm = T)
debug: p <- p + scale_x_continuous(breaks = seq(1, 11, 2))
debug: p <- p + scale_y_continuous(breaks = seq(0, 8, 1))
debug: p <- p + coord_cartesian(xlim = c(-0.5, 11.5), ylim = c(0.5,
8.5))
debug: p <- p + themeLine
debug: p <- p + labs(title = "How often have you attended a worship service?",
x = "Years Since 2000", y = "Church attendance")
debug: return(p)
Called from: BuildLine(modelName = modelName)
debug: p <- ggplot2::ggplot(ds, aes(x = timec, y = attend, group = id))
debug: p <- p + geom_line(aes(x = timec, y = yHat), colour = "red",
alpha = indLineAl, size = indLineSz, na.rm = T)
debug: p <- p + geom_line(aes(y = yFE), fill = NA, na.rm = T)
debug: p <- p + scale_x_continuous(breaks = seq(1, 11, 2))
debug: p <- p + scale_y_continuous(breaks = seq(0, 8, 1))
debug: p <- p + coord_cartesian(xlim = c(-0.5, 11.5), ylim = c(0.5,
8.5))
debug: p <- p + themeLine
debug: p <- p + labs(title = "How often have you attended a worship service?",
x = "Years Since 2000", y = "Church attendance")
debug: return(p)
Called from: BuildLine(modelName = modelName)
debug: p <- ggplot2::ggplot(ds, aes(x = timec, y = attend, group = id))
debug: p <- p + geom_line(aes(x = timec, y = yHat), colour = "red",
alpha = indLineAl, size = indLineSz, na.rm = T)
debug: p <- p + geom_line(aes(y = yFE), fill = NA, na.rm = T)
debug: p <- p + scale_x_continuous(breaks = seq(1, 11, 2))
debug: p <- p + scale_y_continuous(breaks = seq(0, 8, 1))
debug: p <- p + coord_cartesian(xlim = c(-0.5, 11.5), ylim = c(0.5,
8.5))
debug: p <- p + themeLine
debug: p <- p + labs(title = "How often have you attended a worship service?",
x = "Years Since 2000", y = "Church attendance")
debug: return(p)
Called from: BuildLine(modelName = modelName)
debug: p <- ggplot2::ggplot(ds, aes(x = timec, y = attend, group = id))
debug: p <- p + geom_line(aes(x = timec, y = yHat), colour = "red",
alpha = indLineAl, size = indLineSz, na.rm = T)
debug: p <- p + geom_line(aes(y = yFE), fill = NA, na.rm = T)
debug: p <- p + scale_x_continuous(breaks = seq(1, 11, 2))
debug: p <- p + scale_y_continuous(breaks = seq(0, 8, 1))
debug: p <- p + coord_cartesian(xlim = c(-0.5, 11.5), ylim = c(0.5,
8.5))
debug: p <- p + themeLine
debug: p <- p + labs(title = "How often have you attended a worship service?",
x = "Years Since 2000", y = "Church attendance")
debug: return(p)
Called from: BuildLine(modelName = modelName)
debug: p <- ggplot2::ggplot(ds, aes(x = timec, y = attend, group = id))
debug: p <- p + geom_line(aes(x = timec, y = yHat), colour = "red",
alpha = indLineAl, size = indLineSz, na.rm = T)
debug: p <- p + geom_line(aes(y = yFE), fill = NA, na.rm = T)
debug: p <- p + scale_x_continuous(breaks = seq(1, 11, 2))
debug: p <- p + scale_y_continuous(breaks = seq(0, 8, 1))
debug: p <- p + coord_cartesian(xlim = c(-0.5, 11.5), ylim = c(0.5,
8.5))
debug: p <- p + themeLine
debug: p <- p + labs(title = "How often have you attended a worship service?",
x = "Years Since 2000", y = "Church attendance")
debug: return(p)
Called from: BuildLine(modelName = modelName)
debug: p <- ggplot2::ggplot(ds, aes(x = timec, y = attend, group = id))
debug: p <- p + geom_line(aes(x = timec, y = yHat), colour = "red",
alpha = indLineAl, size = indLineSz, na.rm = T)
debug: p <- p + geom_line(aes(y = yFE), fill = NA, na.rm = T)
debug: p <- p + scale_x_continuous(breaks = seq(1, 11, 2))
debug: p <- p + scale_y_continuous(breaks = seq(0, 8, 1))
debug: p <- p + coord_cartesian(xlim = c(-0.5, 11.5), ylim = c(0.5,
8.5))
debug: p <- p + themeLine
debug: p <- p + labs(title = "How often have you attended a worship service?",
x = "Years Since 2000", y = "Church attendance")
debug: return(p)
Called from: BuildLine(modelName = modelName)
debug: p <- ggplot2::ggplot(ds, aes(x = timec, y = attend, group = id))
debug: p <- p + geom_line(aes(x = timec, y = yHat), colour = "red",
alpha = indLineAl, size = indLineSz, na.rm = T)
debug: p <- p + geom_line(aes(y = yFE), fill = NA, na.rm = T)
debug: p <- p + scale_x_continuous(breaks = seq(1, 11, 2))
debug: p <- p + scale_y_continuous(breaks = seq(0, 8, 1))
debug: p <- p + coord_cartesian(xlim = c(-0.5, 11.5), ylim = c(0.5,
8.5))
debug: p <- p + themeLine
debug: p <- p + labs(title = "How often have you attended a worship service?",
x = "Years Since 2000", y = "Church attendance")
debug: return(p)
Called from: BuildLine(modelName = modelName)
debug: p <- ggplot2::ggplot(ds, aes(x = timec, y = attend, group = id))
debug: p <- p + geom_line(aes(x = timec, y = yHat), colour = "red",
alpha = indLineAl, size = indLineSz, na.rm = T)
debug: p <- p + geom_line(aes(y = yFE), fill = NA, na.rm = T)
debug: p <- p + scale_x_continuous(breaks = seq(1, 11, 2))
debug: p <- p + scale_y_continuous(breaks = seq(0, 8, 1))
debug: p <- p + coord_cartesian(xlim = c(-0.5, 11.5), ylim = c(0.5,
8.5))
debug: p <- p + themeLine
debug: p <- p + labs(title = "How often have you attended a worship service?",
x = "Years Since 2000", y = "Church attendance")
debug: return(p)
Called from: BuildLine(modelName = modelName)
debug: p <- ggplot2::ggplot(ds, aes(x = timec, y = attend, group = id))
debug: p <- p + geom_line(aes(x = timec, y = yHat), colour = "red",
alpha = indLineAl, size = indLineSz, na.rm = T)
debug: p <- p + geom_line(aes(y = yFE), fill = NA, na.rm = T)
debug: p <- p + scale_x_continuous(breaks = seq(1, 11, 2))
debug: p <- p + scale_y_continuous(breaks = seq(0, 8, 1))
debug: p <- p + coord_cartesian(xlim = c(-0.5, 11.5), ylim = c(0.5,
8.5))
debug: p <- p + themeLine
debug: p <- p + labs(title = "How often have you attended a worship service?",
x = "Years Since 2000", y = "Church attendance")
debug: return(p)
Called from: BuildLine(modelName = modelName)
debug: p <- ggplot2::ggplot(ds, aes(x = timec, y = attend, group = id))
debug: p <- p + geom_line(aes(x = timec, y = yHat), colour = "red",
alpha = indLineAl, size = indLineSz, na.rm = T)
debug: p <- p + geom_line(aes(y = yFE), fill = NA, na.rm = T)
debug: p <- p + scale_x_continuous(breaks = seq(1, 11, 2))
debug: p <- p + scale_y_continuous(breaks = seq(0, 8, 1))
debug: p <- p + coord_cartesian(xlim = c(-0.5, 11.5), ylim = c(0.5,
8.5))
debug: p <- p + themeLine
debug: p <- p + labs(title = "How often have you attended a worship service?",
x = "Years Since 2000", y = "Church attendance")
debug: return(p)
Called from: BuildLine(modelName = modelName)
debug: p <- ggplot2::ggplot(ds, aes(x = timec, y = attend, group = id))
debug: p <- p + geom_line(aes(x = timec, y = yHat), colour = "red",
alpha = indLineAl, size = indLineSz, na.rm = T)
debug: p <- p + geom_line(aes(y = yFE), fill = NA, na.rm = T)
debug: p <- p + scale_x_continuous(breaks = seq(1, 11, 2))
debug: p <- p + scale_y_continuous(breaks = seq(0, 8, 1))
debug: p <- p + coord_cartesian(xlim = c(-0.5, 11.5), ylim = c(0.5,
8.5))
debug: p <- p + themeLine
debug: p <- p + labs(title = "How often have you attended a worship service?",
x = "Years Since 2000", y = "Church attendance")
debug: return(p)
Called from: BuildLine(modelName = modelName)
debug: p <- ggplot2::ggplot(ds, aes(x = timec, y = attend, group = id))
debug: p <- p + geom_line(aes(x = timec, y = yHat), colour = "red",
alpha = indLineAl, size = indLineSz, na.rm = T)
debug: p <- p + geom_line(aes(y = yFE), fill = NA, na.rm = T)
debug: p <- p + scale_x_continuous(breaks = seq(1, 11, 2))
debug: p <- p + scale_y_continuous(breaks = seq(0, 8, 1))
debug: p <- p + coord_cartesian(xlim = c(-0.5, 11.5), ylim = c(0.5,
8.5))
debug: p <- p + themeLine
debug: p <- p + labs(title = "How often have you attended a worship service?",
x = "Years Since 2000", y = "Church attendance")
debug: return(p)
Called from: BuildLine(modelName = modelName)
debug: p <- ggplot2::ggplot(ds, aes(x = timec, y = attend, group = id))
debug: p <- p + geom_line(aes(x = timec, y = yHat), colour = "red",
alpha = indLineAl, size = indLineSz, na.rm = T)
debug: p <- p + geom_line(aes(y = yFE), fill = NA, na.rm = T)
debug: p <- p + scale_x_continuous(breaks = seq(1, 11, 2))
debug: p <- p + scale_y_continuous(breaks = seq(0, 8, 1))
debug: p <- p + coord_cartesian(xlim = c(-0.5, 11.5), ylim = c(0.5,
8.5))
debug: p <- p + themeLine
debug: p <- p + labs(title = "How often have you attended a worship service?",
x = "Years Since 2000", y = "Church attendance")
debug: return(p)
Called from: BuildLine(modelName = modelName)
debug: p <- ggplot2::ggplot(ds, aes(x = timec, y = attend, group = id))
debug: p <- p + geom_line(aes(x = timec, y = yHat), colour = "red",
alpha = indLineAl, size = indLineSz, na.rm = T)
debug: p <- p + geom_line(aes(y = yFE), fill = NA, na.rm = T)
debug: p <- p + scale_x_continuous(breaks = seq(1, 11, 2))
debug: p <- p + scale_y_continuous(breaks = seq(0, 8, 1))
debug: p <- p + coord_cartesian(xlim = c(-0.5, 11.5), ylim = c(0.5,
8.5))
debug: p <- p + themeLine
debug: p <- p + labs(title = "How often have you attended a worship service?",
x = "Years Since 2000", y = "Church attendance")
debug: return(p)
Called from: BuildLine(modelName = modelName)
debug: p <- ggplot2::ggplot(ds, aes(x = timec, y = attend, group = id))
debug: p <- p + geom_line(aes(x = timec, y = yHat), colour = "red",
alpha = indLineAl, size = indLineSz, na.rm = T)
debug: p <- p + geom_line(aes(y = yFE), fill = NA, na.rm = T)
debug: p <- p + scale_x_continuous(breaks = seq(1, 11, 2))
debug: p <- p + scale_y_continuous(breaks = seq(0, 8, 1))
debug: p <- p + coord_cartesian(xlim = c(-0.5, 11.5), ylim = c(0.5,
8.5))
debug: p <- p + themeLine
debug: p <- p + labs(title = "How often have you attended a worship service?",
x = "Years Since 2000", y = "Church attendance")
debug: return(p)
Called from: BuildLine(modelName = modelName)
debug: p <- ggplot2::ggplot(ds, aes(x = timec, y = attend, group = id))
debug: p <- p + geom_line(aes(x = timec, y = yHat), colour = "red",
alpha = indLineAl, size = indLineSz, na.rm = T)
debug: p <- p + geom_line(aes(y = yFE), fill = NA, na.rm = T)
debug: p <- p + scale_x_continuous(breaks = seq(1, 11, 2))
debug: p <- p + scale_y_continuous(breaks = seq(0, 8, 1))
debug: p <- p + coord_cartesian(xlim = c(-0.5, 11.5), ylim = c(0.5,
8.5))
debug: p <- p + themeLine
debug: p <- p + labs(title = "How often have you attended a worship service?",
x = "Years Since 2000", y = "Church attendance")
debug: return(p)
General case of LCM and model sequence are defined as: